perm filename MRIADF.TEX[TEX,DEK] blob
sn#462931 filedate 1979-07-27 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00003 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 % ***** MRIADF.TEX ***** 23 July 1979
C00004 00003 % initialize single-column dimensions
C00009 ENDMK
C⊗;
% ***** MRIADF.TEX ***** 23 July 1979
\input mripkg
\setcount0 -1 %page number counter, negative for roman numerals
\setcount2 635 %length of single column on full page
\setcount3 75 %length of header info
\setcount1 \count2 \advcount1 by -\count3 %length of column on first page
\setcount4 20 %height (total) of running head box
\setcount5 \count2 \advcount5 by \count4 %total page length
\setcount6 74 %column measure
\setcount7 8 %space between columns
%column measure plus space between columns must be multiple of 4pt leader size
\setcount8 \count6 \advcount8 by \count7 \advcount8 by \count6
\advcount8 by \count7 \advcount8 by \count6 % width of three columns
\setcount9 \count8 \advcount9 by \count8 \advcount9 by \count7
\xdef\pagewd{\count9 pt} % total page width
\xdef\colwd{\count6 pt}
% initialize single-column dimensions
\hsize \colwd \vsize \count1 pt \maxdepth 2pt
\sixpt \baselineskip 7pt plus .1pt minus .1pt \lineskiplimit -1pt
\parskip 0pt plus .05pt
\gdef\fpage{T} %fpage = T indicates first page
\widow←1000 %prevents break with widow lines
\def\newltr#1{ %begin new letter of the alphabet
\penalty-500\vskip 10pt plus 5pt minus 3pt
\vbox to 4.2pt{\tenpt\hbox to \colwd{\hfill\bf#1\hfill}
\vskip 0pt minus 100000pt}
% at top of column, align tops of lines
\setcount6 3 %minimum number of names to be set at bottom of page
\penalty 1000\vskip 8pt plus 2pt minus 1pt}
\def\name#1#2{ %#1=last name;
% #2=rest of name, including comma, followed by
% all references within the same brace grouping
\jpar 1000000
% permit break at bottom of page only if
% at least 3 names have followed new letter
\ifpos6{\penalty 1000\advcount6 by -1}
\else{\penalty -100}
\hangindent 1.5em \noindent#1#2\npg\ \par
\mark{#1}} %\mark comes last so as to avoid the paragraph glue
% definitions for \fref and \oref are in mripkg (also used in mrikdf)
\gdef\lr{L}
\output{\outa}
\def\outa{\output{\outb}\save1\page\save0\hbox{\eightpt\bf\firstmark}}
\def\outb{\output{\outc}\save2\page}
\def\outc{\output{\outd} % now we print the left half page
\vbox to \count5 pt{\baselineskip 0pt\lineskip 0pt
% this full-page length includes running head
\if T\fpage{\vbox to \count3 pt{
\vfill
\spose{\hbox to \pagewd{\:>\hfill AUTHOR INDEX\hfill}}
\vskip 40pt}}
\else{\vbox to 20pt{\vfill %begin running head
\eightpt\bf\hbox{\!
\spose{\hbox to \pagewd{\hfill AUTHOR INDEX\hfill}}
\ifeven0{\box0} %left of even-numbered pages
\else{\count0}} %left of odd-numbered pages
\vskip 12pt}}
\hbox to \count8 pt{\box1\hfill\box2\hfill\page}}
\gdef\lr{R}}
\def\outd{\output{\oute}\save4\page}
\def\oute{\output{\outf}\save5\page}
\def\outf{\output{\outa} % now we print the right half page
\vbox to \count5 pt{\baselineskip 0pt\lineskip 0pt
% this full-page length includes running head
\if T\fpage{\vbox to \count3 pt{\vfill}
\vsize \count2 pt \gdef\fpage{F}}
\else{\vbox to 20pt{\vfill %begin running head
\eightpt\bf\hbox to \count8 pt{\hfill
\ifeven0{\count0} %right of even-numbered pages
\else{\botmark}} %right of odd-numbered pages
\vskip 12pt}}
\hbox to \count8 pt{\box4\hfill\box5\hfill\page}
\advcount0} %increment page number
\gdef\lr{L}}
\def\closeout{\vfill\penalty-1000
\def\n{\hbox to \colwd{}}
\if\lr L{\n\eject\n\eject\n\eject}\else{}\n\end} % gets last page out